home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / falcon / nt_dsp1.lzh / NT_DSP1.MSA / LFLTS / LATIIRT.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-01-24  |  1.4 KB  |  46 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Lattice IIR Filter Macro. (test program)
  7. ; 
  8. ; Last Update 31 Jul 86   Version 1.0
  9. ;
  10. ;
  11. ;       LATTICE IIR
  12. ;
  13.         opt     cex
  14.         page    132,66,0,10
  15.         nolist
  16.         include 'dsplib:ioequ'
  17.         list
  18.         include 'dsplib:latiir'
  19.  
  20.  
  21. order   equ     3               ;three coefficient lattice
  22. datin   equ     $ffff           ;location of input file
  23. datout  equ     $fffe           ;location of output file
  24. npts    equ     20              ;number of points to process
  25.  
  26.         org     x:0
  27. kadd    dc      .5,-.5,.8       ;filter reflection coefficients
  28.         org     y:0
  29. state   ds      3               ;filter states
  30.  
  31.         org     p:$100
  32. start
  33.         movep   #0,x:M_BCR      ;no wait states on external i/o
  34.  
  35.         move    #kadd+order-1,r0        ;point to k's
  36.         move    #order-1,m0             ;mod order
  37.         move    #state,r4               ;point to state variables
  38.         move    #order-1,m4             ;mod order
  39.  
  40.         do      #npts,_endp             ;filter some points
  41.         move    y:datin,a               ;get input sample
  42.         latiir  order                   ;filter it
  43.         move    a,y:datout              ;output sample
  44. _endp
  45.         END
  46.